#lang rosetta-racket


(provide test-sphere)


(define (test-sphere r)
  (lift
   (thunk (displayln (format "Sphere ~A" r)))
   (sphere r)))